0 IFZZ=0THENZZ=1:LOAD"UNPACKER",8,1
1 IFZZ=1THENZZ=2:LOAD"BACH.SHP",8,1
2 IFZZ=2THENZZ=3:LOAD"TEXT.3.O",8,1
3 :
4 IFZZ=3THENPOKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,0:POKE254,0
5 IFZZ=3THENSYS51456:AG=3.3:POKE828,1:POKE829,39:POKE830,1:POKE831,23:ZZ=4
6 :
7 POKE650,128:POKE53280,.:POKE53281,.:GOSUB20:PRINTCHR$(142)
8 ONLDGOTO1145,50040
9 GOTO100
10 PRINT"":FORA=1TONS:ES=6-LEN(STR$(NS(A))):ES$=MID$(SP$,1,ES)
12 IF((NS=A)OR(A=NS-1))ANDA=SETHENPRINT"[159]"NS$(A):GOTO16
13 IF(NS=A)OR(NS-1=A)THENPRINT"[154]"NS$(A):GOTO16
14 IFA=SETHENPRINT"[159]"NS$(A)TAB(32)NS(A)"[157] ":GOTO16
15 PRINT"[154]"NS$(A)TAB(32)NS(A)"[157] [146]"
16 NEXT:RETURN
20 FORT=.TO24:POKE54272+T,.:NEXT:RETURN
30 PRINT""
32 FORA=1TO8:PRINT"                                       ":NEXT
34 PRINT"":RETURN
50 GOSUB30:PRINT" [150]ARE YOU SURE YOU WANT TO QUIT?   (Y/N)"
55 GETA$:IFA$=""THEN55
60 IFA$="Y"THEN60000
65 IFA$<>"N"THEN55
70 RETURN
100 NS=10:DIM NS$(NS),NS(NS):SE=1:SP$="                 "
110 NS$(1)="INVENTION 13"
112 NS$(2)="SINFONIA 2"
114 NS$(3)="SINFONIA 4"
116 NS$(4)="SINFONIA 12"
118 NS$(5)="SINFONIA 13"
120 NS$(6)="PRELUDE 2"
122 NS$(7)="PRELUDE 3"
124 NS$(8)="PRELUDE 7"
125 NS$(9)=" AUTO-PLAY "
126 NS$(10)=" EXIT PROGRAM "
127 JOY=56320
128 PRINT"[147]";
130 PRINT"           [158]BACH TO THE FUTURE"
132 PRINT"[129]          MUSIC BY: RON COFFEN"
135 PRINT"[153][154]NAME OF SONG"TAB(29)"# OF TIMES"
137 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
140 GOSUB10
145 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
150 PRINT"[158]CRSR UP AND CRSR DOWN (OR JOYSTICK)"
160 PRINT"MOVES THE HIGHLIGHTED AREA UP AND DOWN."
170 PRINT"[129]+ AND - KEYS ADD AND SUBTRACT THE"
180 PRINT"NUMBER OF TIMES A SONG IS TO BE PLAYED."
190 PRINT"WHEN YOU'RE FINISHED SELECTING SONGS,"
200 PRINT"PRESS RETURN (OR BUTTON)."
1000 IF(PEEK(203)=64)AND(PEEK(197)=64)THENPOKE198,.
1005 GETA$:IFA$=""ANDPEEK(JOY)=127THEN1000
1010 IFA$=""ORPEEK(JOY)=125THENSE=SE+1:IFSE=NS+1THENSE=1:GOTO1060
1020 IFA$="[145]"ORA$=""ORPEEK(JOY)=126THENSE=SE-1:IFSE=0THENSE=NS:GOTO1060
1030 IFA$="+"ORPEEK(JOY)=119THEN:NS(SE)=NS(SE)+1
1040 IFA$="-"ORPEEK(JOY)=123THEN:NS(SE)=NS(SE)-1:IFNS(SE)=-1THENNS(SE)=.
1050 IFA$=CHR$(13)ORPEEK(JOY)=111THEN1070
1060 GOSUB10:GOTO1000
1070 IFSE=NSTHENGOSUB50:GOTO130
1072 IFSE=NS-1THEN50000: REM AUTO-PLAY
1080 HN=.:FORA=1TONS
1090 IFNS(A)>HNTHENHN=NS(A)
1100 NEXT
1110 A=1:QQ=0
1120 B=1
1130 IFNS(B)=.THEN1200
1135 SE=B:GOSUB10:GOSUB30
1140 LD=1:LOAD "B64/"+NS$(B),8,1
1145 NS(B)=NS(B)-1:GOSUB10:IFQQ=1THEN1150
1146 QQ=1:SYS51459
1147 SYS49161,"[208]RESS [RETURN] TO RETURN TO THE MENU",1,23,0
1148 SYS49161,"ANY OTHER KEY SKIPS TO THE NEXT SONG.",1,24,0
1150 SYS49161,"  "+NS$(B)+"  ",17-LEN(NS$(B))/2,21,0
1155 POKE54296,15:SYS30120:POKE198,.:IFB=7THENPOKE54296,15
1160 GETA$:IFPEEK(789)<>234ANDA$=""THEN1160
1165 IFA$=CHR$(13)THENGOSUB20:GOTO1220
1170 IFA$<>""ORPEEK(789)=234THENPOKE31044,4:GOSUB20:GOTO1200
1180 IFA$<>""ORPEEK(789)=250THENPOKE8248,4:GOSUB20:GOTO1200
1190 POKE198,1:POKE631,65:GOTO1160
1200 B=B+1:IFB<NSTHEN1130
1210 A=A+1:IFA<HNTHEN1120
1220 GOSUB30:SYS51459:GOTO130
2000 :
50000 REM AUTO-PLAY
50010 X=1:QQ=0
50020 SE=X:GOSUB10:GOSUB30
50030 LD=2:LOAD "B64/"+NS$(X),8,1
50040 GOSUB10:IFQQ=1THEN50060
50042 SYS51459
50050 SYS49161,"[208]RESS [RETURN] TO RETURN TO THE MENU",1,23,0
50052 SYS49161,"ANY OTHER KEY SKIPS TO THE NEXT SONG.",1,24,0
50060 SYS49161,"  "+NS$(X)+"  ",17-LEN(NS$(X))/2,21,0:QQ=1
50065 POKE54296,15:SYS30120:POKE198,.
50070 GETA$:IFPEEK(789)<>234ANDA$=""THEN50070
50080 IFA$=CHR$(13)THEN51020
50082 IFA$<>""ORPEEK(789)=234THENPOKE31044,4:GOSUB20:GOTO51000
50084 IFA$<>""ORPEEK(789)=250THENPOKE8248,4:GOSUB20:GOTO51000
50090 POKE198,1:POKE631,13:GOTO50070
50095 :
51000 X=X+1:IFX<=NS-2THEN50020
51020 GOSUB20:GOSUB30:SYS51459:GOTO130
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 PRINT"[147]";:IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8